home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / cli / ksc_NoRqust.lha / NoRequest.asm < prev    next >
Assembly Source File  |  1997-04-08  |  484b  |  22 lines
  1. ; NoRequest 1.0 : toggles DOS Requesters on/off (like please insert volume x)
  2. ; by Kyzer/CSG
  3. ;
  4.     incdir    include:
  5.     include    lvo.i
  6.     include    exec/execbase.i
  7.     include    dos/dosextens.i
  8.  
  9.     move.l    4.w,a6
  10.     move.l    ThisTask(a6),a0
  11.     lea    pr_WindowPtr(a0),a0
  12.     move.l    (a0),d0        ; get current state of pr_WindowPtr
  13.     moveq.l    #-1,d1
  14.     cmp.l    d1,d0    ; is NoRequest already active?
  15.     beq.s    showreq    ; yes restore requesters
  16.     move.l    d1,(a0)    ; no, disable them
  17.     bra.s    exit
  18. showreq    clr.l    (a0)
  19. exit    moveq    #0,d0
  20.     rts
  21.  
  22.